home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 1 / 02 / tips & tricks / ced_delete.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-06-01  |  2.0 KB  |  67 lines
  1. /*
  2.    $VER: CED_Delete.Rexx Vo.o1 (28.1o.93) Gordon Schulz.
  3.    Löschen von ungewünschten gelesenen Dateien direkt 
  4.    vom Cygnus-Editor heraus. Dieses Skript sollte als 
  5.    eine Cygnus-Ed-Funktion assigned werden. */
  6. OPTIONS RESULTS
  7. ADDRESS COMMAND
  8. /* Definiere ein LineFeed zur späteren Verwendung */
  9. LF = '0a'x
  10. /* FehlerRoutine, falls das Delete-Kommando fehlschlägt.*/
  11. signal on ERROR
  12. /* Alle Messages an CED schicken */
  13. ADDRESS 'rexx_ced'
  14. /* Veränderbare Variablen.
  15.    Ist Messages = "ON", dann wird nach jedem 
  16.    erfolgreichen Löschen im CED noch eine Message 
  17.    ausgegeben. Ist Alert = "ON", dann wird vor dem
  18.    eigentlichen Löschen der Datei noch eine Sicher-
  19.    heitsabfrage durchgeführt. Einsetzen anderer 
  20.    Werte schaltet diese Funktionen aus. */
  21. Messages = "ON"
  22. Alert = "ON"
  23. /* Wir brauchen und wollen kein CLI-Ausgabefenster */
  24. Call close 'STDOUT'
  25. Call close 'STDIN'
  26. /* Fragen wir CED nach dem zu löschenden FileNamen */
  27. 'status 19'
  28. file = result
  29. /* Vor dem Löschen noch eine Abfrage durchführen?! */
  30. select
  31.        when Alert = "ON" then call frag
  32.        otherwise call delete
  33. end
  34. /***************************************************/
  35. frag:
  36. /* Sicherheitsabfrage durchführen */
  37. 'okay2' 'Wollen sie "'file'" wirklich löschen?!'
  38. antwort = result
  39. /* Überprüfen der Antwort */
  40. select
  41.        when antwort = 1 then call delete
  42.        otherwise exit
  43. end
  44. /***************************************************/
  45. delete:
  46. /* Löschen wir das File */
  47. address command("Delete "||file||"")
  48. /* Noch eine Nachricht ?! */
  49. if Messages = "ON" then
  50. 'okay1' 'File "'file'" deleted.'
  51. /* Löschen wir den Speicher des CED's */
  52. 'clear'
  53. /* Und tschüß */
  54. exit
  55. /***************************************************/
  56. Error:
  57. /* Das Script verzweigt hierhin, falls der Return-
  58.    Code rc des Delete-Befehls größer als Null 
  59.    sein sollte. = Fehler! */
  60. fehler = rc
  61. /* Gebe Nachricht über den Fehler aus */
  62. 'okay1' 'Delete Kommando gab ReturnCode "'fehler'" 
  63.    zurück.'LF'Ein Fehler trat auf oder File ist 
  64.    löschgeschützt!'
  65. exit
  66.  
  67.